home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr22 / gnplt.zip / POLAR.DEM < prev    next >
Text File  |  1993-05-11  |  1KB  |  56 lines
  1. #
  2. # $Id: polar.dem%v 3.38.2.88 1993/03/04 01:47:16 woo Exp woo $
  3. #
  4. # Show some of the new polar capabilities.
  5. #
  6. set noborder
  7. set clip
  8. set polar
  9. set dummy x
  10. set samples 160
  11. set xrange [0:2*pi]
  12. set title "Three circles (with aspect ratio distortion)"
  13. plot .5,1,1.5
  14. pause -1 "Hit return to continue"
  15. set title ""
  16.  
  17. plot cos(2*x)
  18. pause -1 "Hit return to continue"
  19.  
  20. plot 2*sqrt(cos(x)),-2*sqrt(cos(x))
  21. pause -1 "Hit return to continue"
  22.  
  23. set offset pi/4,pi/4,0,0
  24. plot sin(4*x),cos(4*x)
  25. set offset 0,0,0,0
  26. pause -1 "Hit return to continue"
  27.  
  28. set yrange [-5:5]
  29. plot x/cos(3*x)
  30. pause -1 "Hit return to continue"
  31. set autoscale
  32.  
  33. plot 1-sin(x)
  34. pause -1 "Hit return to continue"
  35.  
  36. set xrange [0:12*pi]
  37. plot 2*x
  38. pause -1 "Hit return to continue"
  39.  
  40. butterfly(x)=exp(cos(x))-2*cos(4*x)+sin(x/12)**5
  41. set samples 800
  42. pause 0 "This is a big one (many samples), be patient..."
  43. set title "Butterfly"
  44. set nokey
  45. plot butterfly(x)
  46. pause -1 "Hit return to continue"
  47.  
  48. # undo what we've done above
  49. set nopolar
  50. set samples 160
  51. set autoscale xy
  52. set title ""
  53. set offset 0,0,0,0
  54. set key
  55. set border
  56.